// підключення заголовного файлу MPI
#include <mpi.h>
#include <stdio.h>
int main (int argc, char* argv[])
{
   int myrank, numtasks, version, subversion, len, flag;
   char procname [MPI_MAX_PROCESSOR_NAME];
   /*
    * Перевірка: чи ініціалізовано вже середовище MPI
    */
   MPI_Initialized(&flag);
   if(flag==1)
   {
   printf("MPI вже ініціалізовано\n");
   }
   else
   /*
    * Ініціалізація MPI-середовища
    */
   MPI_Init (&argc, &argv);
   // визначення версії MPI
   MPI_Get_version(&version,&subversion);
   printf("Версія MPI %d.%d \n",version,subversion);
   // визначення загальної кількості процесів
   MPI_Comm_size (MPI_COMM_WORLD, &numtasks);
   // визначення номеру поточного процесу
   MPI_Comm_rank (MPI_COMM_WORLD, &myrank);
   if (myrank == 0) 
     printf ("Загальна кількість процесів = %d \n", numtasks);
   // визначення назви обчислювача
   MPI_Get_processor_name (procname, &len);
   printf ("Повідомлення від процесу %d на обчислювальному вузлі %s\n", myrank, procname);
   // завершення MPI-середовища
   MPI_Finalize ();
}
